﻿
Public Class MyUri
    Inherits Uri

    Public Sub New(ByVal uriString As String)
        MyBase.New(uriString)
    End Sub 

    Public Depth As Integer

    Public Overrides Function ToString() As String
        Return MyBase.ToString
    End Function

End Class
